10 \H,0:\E,0:I=10:J=10:POKE 53280,0
20 \C,0,16*J:POKE 53280,I
30 FORX=5TO165STEPI:\K,159,99,X,165-X,1:NEXTX
40 FORX=5TO165STEPI:\K,159,99,X,165-X,0:NEXTX
50 I=INT(RND(TI)*20)+1:J=INT(RND(TI)*14)+1
55 \C,0,16*J:POKE 53280,I
60 FORX=0TO149 STEP10+I
70 FORY=189 TO 0 STEP-10-I
80 \L,X,Y,310-X,190-Y,1
90 NEXTY,X
92 FORY=189 TO 0 STEP-10-I
94 FORX=0TO149 STEP10+I
96 \L,X,Y,310-X,190-Y,0
98 NEXTX,Y
99 I=INT(RND(TI)*20)+1:J=INT(RND(TI)*14)+1
100 \E,0:GOTO 20